home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / sound / mcihelp / frmman.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-29  |  5.3 KB  |  182 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Mci Command Interface"
  5.    ClientHeight    =   1740
  6.    ClientLeft      =   1050
  7.    ClientTop       =   2580
  8.    ClientWidth     =   6795
  9.    ClipControls    =   0   'False
  10.    ForeColor       =   &H00C0C0C0&
  11.    Height          =   2115
  12.    Icon            =   "frmMan.frx":0000
  13.    Left            =   990
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   116
  18.    ScaleMode       =   3  'Pixel
  19.    ScaleWidth      =   453
  20.    Top             =   2265
  21.    Width           =   6915
  22.    Begin VB.CheckBox Check1 
  23.       Alignment       =   1  'Right Justify
  24.       Caption         =   "Stay On Top"
  25.       Height          =   225
  26.       Left            =   5250
  27.       TabIndex        =   11
  28.       Top             =   1380
  29.       Width           =   1335
  30.    End
  31.    Begin VB.TextBox txt 
  32.       BackColor       =   &H00C0C0C0&
  33.       Height          =   285
  34.       Index           =   3
  35.       Left            =   1620
  36.       Locked          =   -1  'True
  37.       TabIndex        =   6
  38.       Top             =   900
  39.       Width           =   3405
  40.    End
  41.    Begin VB.CommandButton cmd1 
  42.       Caption         =   "Send"
  43.       Height          =   330
  44.       Left            =   180
  45.       TabIndex        =   3
  46.       Top             =   1320
  47.       Width           =   1200
  48.    End
  49.    Begin VB.TextBox txt 
  50.       Height          =   285
  51.       Index           =   0
  52.       Left            =   1620
  53.       TabIndex        =   0
  54.       Top             =   180
  55.       Width           =   4965
  56.    End
  57.    Begin VB.TextBox txt 
  58.       BackColor       =   &H00C0C0C0&
  59.       ForeColor       =   &H00000000&
  60.       Height          =   285
  61.       Index           =   1
  62.       Left            =   1620
  63.       Locked          =   -1  'True
  64.       TabIndex        =   4
  65.       Top             =   540
  66.       Width           =   4965
  67.    End
  68.    Begin VB.OptionButton opt 
  69.       Caption         =   "MciSendString"
  70.       Height          =   195
  71.       Index           =   1
  72.       Left            =   3300
  73.       TabIndex        =   2
  74.       Top             =   1380
  75.       Width           =   1545
  76.    End
  77.    Begin VB.OptionButton opt 
  78.       Caption         =   "MciExecute"
  79.       Height          =   195
  80.       Index           =   0
  81.       Left            =   1620
  82.       TabIndex        =   1
  83.       Top             =   1380
  84.       Value           =   -1  'True
  85.       Width           =   1605
  86.    End
  87.    Begin VB.TextBox txt 
  88.       BackColor       =   &H00C0C0C0&
  89.       Height          =   285
  90.       Index           =   2
  91.       Left            =   6060
  92.       Locked          =   -1  'True
  93.       TabIndex        =   5
  94.       Top             =   930
  95.       Width           =   525
  96.    End
  97.    Begin VB.Label lb 
  98.       AutoSize        =   -1  'True
  99.       BackStyle       =   0  'Transparent
  100.       Caption         =   "Send String "
  101.       Height          =   195
  102.       Index           =   0
  103.       Left            =   180
  104.       TabIndex        =   10
  105.       Top             =   270
  106.       Width           =   870
  107.    End
  108.    Begin VB.Label lb 
  109.       AutoSize        =   -1  'True
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "Return Message"
  112.       Height          =   195
  113.       Index           =   3
  114.       Left            =   180
  115.       TabIndex        =   9
  116.       Top             =   930
  117.       Width           =   1170
  118.    End
  119.    Begin VB.Label lb 
  120.       AutoSize        =   -1  'True
  121.       BackStyle       =   0  'Transparent
  122.       Caption         =   "Ret Code"
  123.       Height          =   195
  124.       Index           =   2
  125.       Left            =   5280
  126.       TabIndex        =   8
  127.       Top             =   960
  128.       Width           =   675
  129.    End
  130.    Begin VB.Label lb 
  131.       AutoSize        =   -1  'True
  132.       BackStyle       =   0  'Transparent
  133.       Caption         =   "Return Error String "
  134.       Height          =   195
  135.       Index           =   1
  136.       Left            =   180
  137.       TabIndex        =   7
  138.       Top             =   600
  139.       Width           =   1350
  140.    End
  141. Attribute VB_Name = "frmMain"
  142. Attribute VB_Creatable = False
  143. Attribute VB_Exposed = False
  144. Option Explicit
  145. Private Sub Check1_Click()
  146. 'Makes form stay on top or not depending on the _
  147.     value of OnTop
  148. OnTop = Not OnTop 'Toggle the OnTop value
  149. 'Determine operating system and execute code
  150. #If Win16 Then
  151.     If OnTop = True Then
  152.         Call SetWindowPos(frmMain.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
  153.     Else
  154.         Call SetWindowPos(frmMain.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
  155.     End If
  156. #ElseIf Win32 Then
  157.     If OnTop = True Then
  158.         Call SetWindowPos(frmMain.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
  159.     Else
  160.         Call SetWindowPos(frmMain.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
  161.     End If
  162. #End If
  163. End Sub
  164. Private Sub cmd1_Click()
  165. 'Pass textbox text to MMSend
  166. MMSend (txt(0).Text)
  167. End Sub
  168. Private Sub Form_Load()
  169. 'Set intial value for variables
  170. SelOpt = 0
  171. OnTop = False
  172. End Sub
  173. Private Sub opt_Click(Index As Integer)
  174. 'Toggle SelOpt value
  175. Select Case Index
  176.     Case 0
  177.         SelOpt = 0
  178.     Case 1
  179.         SelOpt = 1
  180. End Select
  181. End Sub
  182.